home *** CD-ROM | disk | FTP | other *** search
- @echo off
- if "%1" == "off" goto off
- IF "%1" == "OFF" goto off
- if "%2" == "black" goto black
- if "%2" == "BLACK" goto black
- if "%2" == "red" goto red
- if "%2" == "RED" goto red
- if "%2" == "green" goto green
- if "%2" == "YELLOW" goto yellow
- if "%2" == "yellow" goto yellow
- if "%2" == "YELLOW" goto yellow
- if "%2" == "blue" goto blue
- if "%2" == "BLUE" goto blue
- if "%2" == "magenta" goto magenta
- if "%2" == "MAGENTA" goto magenta
- if "%2" == "cyan" goto cyan
- if "%2" == "CYAN" goto cyan
- if "%2" == "white" goto white
- if "%2" == "WHITE" goto white
- goto inst
- :black
- set %back=40
- goto fg
- :red
- set %back=41
- goto fg
- :green
- set %back=42
- goto fg
- :yellow
- set %back=43
- goto fg
- :blue
- set %back=44
- goto fg
- :magenta
- set %back=45
- goto fg
- :cyan
- set %back=46
- goto fg
- :white
- set %back=47
- :fg
- if "%1" == "black" goto fblack
- if "%1" == "BLACK" goto fblack
- if "%1" == "red" goto fred
- if "%1" == "RED" goto fred
- if "%1" == "green" goto fgreen
- if "%1" == "GREEN" goto fgreen
- if "%1" == "yellow" goto fyellow
- if "%1" == "YELLOW" goto fyellow
- if "%1" == "blue" goto fblue
- if "%1" == "BLUE" goto fblue
- if "%1" == "magenta" goto fmagenta
- if "%1" == "MAGENTA" goto fmagenta
- if "%1" == "cyan" goto fcyan
- if "%1" == "CYAN" goto fcyan
- if "%1" == "white" goto fwhite
- if "%1" == "WHITE" goto fwhite
- goto inst
- :fblack
- set %fore=30
- goto go
- :fred
- set %fore=31
- goto go
- :fgreen
- set %fore=32
- goto go
- :fyellow
- set %fore=33
- goto go
- :fblue
- set %fore=34
- goto go
- :fmagenta
- set %fore=35
- goto go
- :fcyan
- set %fore=36
- goto go
- :fwhite
- set %fore=37
- :go
- prompt $e[1;%fore%;%back%m$p$_$g
- set back=
- set fore=
- goto end
- :inst
- echo ╔═════════════════════════╗
- echo ║ Welcome to Color! ║
- echo ║ All rights reserved ║
- echo ║ (c)1992 MAK Industries ║
- echo ╟─────────────────────────╢
- echo ║ Any sale, charging for, ║
- echo ║ or use of this file ║
- echo ║ in any other way than ║
- echo ║ Shareware is against ║
- echo ║ the author's wishes ║
- echo ╚═════════════════════════╝
- pause
- echo ╔═════════════════════════╗
- echo ║ To use Color type: ║
- echo ║ ║
- echo ║ COLOR [foreground] ║
- echo ║ [background] [BOOT] ║
- echo ║ ║
- echo ║ Note: ║
- echo ║ [BOOT] is optional ║
- echo ║ ║
- echo ║ replacing [foreground] ║
- echo ║ and [background] with ║
- echo ║ any of these colors: ║
- echo ╟─────────────────────────╢
- echo ║ BLACK RED GREEN YELLOW ║
- echo ║ BLUE MAGENTA CYAN WHITE ║
- echo ╚═════════════════════════╝
- pause
- :end
- echo on
- echo off
- if "%3" == "boot" goto bootend
- echo ╔═════════════════════════╗
- echo ║ To insure more programs ║
- echo ║ come out for Shareware ║
- echo ║ a registration fee of ║
- echo ║ $5-$10 is asked for ║
- echo ║ by all who continue to ║
- echo ║ use these programs. ║
- echo ║ If you do this you may ║
- echo ║ recieve an updated ║
- echo ║ version and maybe a few ║
- echo ║ other programs to try ║
- echo ╟─────────────────────────╢
- echo ║ The address to send to ║
- echo ║ is..... ║
- echo ║ ║
- echo ║ Marc Kurtz ║
- echo ║ c/o MAK Industries ║
- echo ║ 3-13th street ║
- echo ║ Holbrook, NY 11741 ║
- echo ╚═════════════════════════╝
- goto quit
- :off
- prompt $p$_$g
- :bootend
- :quit
-